{---------------------------------------------------------------------
#
#	Apple Macintosh Developer Technical Support
#
#	MultiFinder-Aware Simple TextEdit Sample Application
#
#	OOPTESample
#
#	MTESample.p		-	Pascal Source
#
#	Copyright © 1988, 1989 Apple Computer, Inc.
#	All rights reserved.
#
#	Version:		
#					1.00					04/89
#
#	Components:     
#					BuildOOPTESample		April 1, 1989
#					MOOPTESample.p			April 1, 1989
#					OOPTESample.make		April 1, 1989
#					TECommon.h				April 1, 1989
#					TESampleGlue.a			April 1, 1989
#					TESample.r				April 1, 1989
#					UApplication.p			April 1, 1989
#					UApplication.inc1.p		April 1, 1989
#					UDocument.p				April 1, 1989
#					UDocument.inc1.p		April 1, 1989
#					UTEDocument.p			April 1, 1989
#					UTEDocument.inc1.p		April 1, 1989
#					UTESample.p				April 1, 1989
#					UTESample.inc1.p		April 1, 1989
#
---------------------------------------------------------------------}

PROGRAM OOPTESample;

USES
	{ Macintosh Types }
	Types, QuickDraw, OSUtils, Controls, TextEdit, Traps,
	Events, Windows, SegLoad, ObjIntf,

	{ Our types }
	UDocument, UApplication, UTEDocument, UTESample;


BEGIN
	New(gTheApplication);
	IF gTheApplication = NIL THEN ExitToShell;

	gTheApplication.ITESample;
	gApplication := gTheApplication;
	gTheApplication.EventLoop;
END.